home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 2 / Meeting Pearls Vol. II (1995)(GTI - Schatztruhe)[!].iso / Pearls / dev / Oberon_Interfaces / Interfaces / Input.mod < prev    next >
Text File  |  1994-03-05  |  650b  |  39 lines
  1. (*
  2. (*
  3. **  Amiga Oberon Interface Module:
  4. **  $VER: Input.mod 40.15 (28.12.93) Oberon 3.0
  5. **
  6. **   © 1993 by Fridtjof Siebert
  7. *)
  8. *)
  9.  
  10. MODULE Input;
  11.  
  12. IMPORT e * := Exec;
  13.  
  14. CONST
  15.  
  16.   addHandler  * = e.nonstd+0;
  17.   remHandler  * = e.nonstd+1;
  18.   writeEvent  * = e.nonstd+2;
  19.   setThresh   * = e.nonstd+3;
  20.   setPeriod   * = e.nonstd+4;
  21.   setMPort    * = e.nonstd+5;
  22.   setMType    * = e.nonstd+6;
  23.   setMTrig    * = e.nonstd+7;
  24.  
  25. VAR
  26.  
  27. (*
  28.  *  You have to put a pointer to the input.device here to use the input
  29.  *  procedures:
  30.  *)
  31.  
  32.   base * : e.DevicePtr;
  33.  
  34. (*--- functions in V36 or higher (Release 2.0) ---*)
  35. PROCEDURE PeekQualifier*{base,-42}(): SET;
  36.  
  37. END Input.
  38.  
  39.